perm filename LOSS.1[NEW,LSP]2 blob sn#476821 filedate 1979-09-25 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	IFN SAIL,[
C00004 ENDMK
CāŠ—;
IFN SAIL,[
DEFINE FIXPDLP FREEAC
	HRRZ FREEAC,P
	SUB FREEAC,C2
	HRLS FREEAC
	MOVE P,FREEAC
TERMIN

DEFINE FIXPDLFXP FREEAC
	HRRZ FREEAC,FXP
	SUB FREEAC,FXC2
	HRLS FREEAC
	MOVE FXP,FREEAC
TERMIN

DEFINE FIXPDLFLP FREEAC
	HRRZ FREEAC,FLP
	SUB FREEAC,FLC2
	HRLS FREEAC
	MOVE FLP,FREEAC
TERMIN

DEFINE FIXPDLSP FREEAC
	HRRZ FREEAC,SP
	SUB FREEAC,SC2
	HRLS FREEAC
	MOVE SP,FREEAC
TERMIN

]	;END OF IFN SAIL
	HRRZ FREEAC,P
	SUB FREEAC,C2
	HRLS FREEAC
	MOVE P,FREEAC
TERMIN

DEFINE FIXPDLFXP FREEAC
	HRRZ FREEAC,FXP
	SUB FREEAC,FXC2
	HRLS FREEAC
	MOVE FXP,FREEAC
TERMIN

DEFINE FIXPDLFLP FREEAC
	HRRZ FREEAC,FLP
	SUB FREEAC,FLC2
	HRLS FREEAC
	MOVE FLP,FREEAC
TERMIN

DEFINE FIXPDLSP FREEAC
	HRRZ FREEAC,SP
	SUB FREEAC,SC2
	HRLS FREEAC
	MOVE SP,FREEAC
TERMIN

]	;END OF IFN SAIL